(ffap-replace-file-component): Use `mapc' rather than `mapcar'.

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 80b94a4d3ba44db6706b58d8218259d1c8e5326b..8c338bd947ab755fbf79b9241112b9f674d20bd5 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -482,7 +482,7 @@ Returned values:
   "In remote FULLNAME, replace path with NAME.  May return nil."
   ;; Use ange-ftp or efs if loaded, but do not load them otherwise.
   (let (found)
-    (mapcar
+    (mapc
      (function (lambda (sym) (and (fboundp sym) (setq found sym))))
      '(
        efs-replace-path-component